home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload Trio 2
/
Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO
/
dir36
/
batmouse.zip
/
DIRECTOR.TXT
< prev
next >
Wrap
Text File
|
1993-08-20
|
6KB
|
231 lines
1 @echo off
2 set scrn=on
3 if not x%menu%==x goto MAINMENU
4 goto more1
5 rem REPLY.COM SETS THE CORRESPONDING DECIMAL VALUE OF THE ASCII
6 rem KEY PRESSED INTO THE DOS ERRORLEVEL REGISTER -----
7 rem F1=59, F2=-60, F3=-61, F4=-62, F5=-63, y=121, Y=89, N=78, n=110, ESCP=27!
8 :PAGEDOWN
9 if %menu%==1 goto more2
10 if %menu%==2 goto more3
11 goto more1
12 :PAGEUP
13 if %menu%==1 goto more3
14 if %menu%==2 goto more1
15 goto more2
16 :more1
17 set menu=1
18 goto mainmenu
19 :more2
20 set menu=2
21 goto mainmenu
22 :more3
23 set menu=3
24 :mainmenu
25 c:
26 REM CD \ ----- REINSTATE THIS LINE TO USE SYSTEM IN ROOT DIR
27 CURSOFF
28 if %scrn%==on goto scn
29 GOTO %menu%
30 :1
31 echo %6;%7m
32 echo 4H WORD PROCESSOR
33 echo 4H POWER MENU
34 echo 34H NETWORK LOGIN
35 echo 34H FORM TOOL
36 echo 34H HIJAAK
37 echo 34H BUSINESS SYSTEM
38 echo 34H PAINT BRUSH
39 echo 34H
40 echo 8H1/3
41 GOTO ENDSCR
42 :2
43 echo %6;%7m
44 echo 4H SCREEN PAINTER
45 echo 4H WINDOWS
46 echo 34H SOLITAIRE
47 echo 34H BASIC
48 echo 34H MODIFIED BACKUP
49 echo 34H NORTON UTILITIES
50 echo 34H GAMES MENU
51 echo 34H
52 echo 8H2/3
53 GOTO ENDSCR
54 :3
55 echo %6;%7m
56 echo 4H AUTOCAD
57 echo 4H XTREE
58 echo 34H ACCOUNTING
59 echo 34H SET BACKUP DATE
60 echo 34H TAPE BACKUP
61 echo 34H ZIP PROGRAM
62 echo 34H DISK LABELS
63 echo 34H
64 echo 8H3/3
65 :ENDSCR
66 echo
67 CURSON
68 :REENTER
69 BATMOUSE
70 if not %vc%==- goto mouse
71 if errorlevel 72 if not errorlevel 73 goto help
72 if errorlevel 104 if not errorlevel 105 goto help
73 if errorlevel 68 if not errorlevel 69 goto pagedown
74 if errorlevel 81 if not errorlevel 82 goto f9
75 if errorlevel 27 if not errorlevel 28 goto F9
76 if errorlevel 67 if not errorlevel 68 goto F9
77 if errorlevel 113 if not errorlevel 114 goto F9
78 set scrn=on
79 if errorlevel 66 if not errorlevel 67 goto F8%menu%
80 if errorlevel 65 if not errorlevel 66 goto F7%menu%
81 if errorlevel 64 if not errorlevel 65 goto F6%menu%
82 if errorlevel 63 if not errorlevel 64 goto F5%menu%
83 if errorlevel 62 if not errorlevel 63 goto F4%menu%
84 if errorlevel 61 if not errorlevel 62 goto F3%menu%
85 if errorlevel 60 if not errorlevel 61 goto F2%menu%
86 if errorlevel 59 if not errorlevel 60 goto F1%menu%
87 set scrn=off
88 goto badkey
89 :mouse
90 if %hr%==1 goto pageup
91 if %hr%==25 goto pagedown
92 if %hr%==2 goto pageup
93 if %hr%==24 goto pagedown
94 if %hr%==3 goto pageup
95 if %hr%==23 goto pagedown
96 if %hr%==21 if %vc%==62 goto HELP
97 if %hr%==22 if %vc%==62 goto F9
98 if %hr%==22 if %vc%==63 goto F9
99 if %vc%==31 goto callprog
100 if %vc%==32 goto callprog
101 if %vc%==33 goto callprog
102 if %vc%==34 goto callprog
103 if %vc%==35 goto callprog
104 if %vc%==36 goto callprog
105 if %vc%==37 goto callprog
106 if %vc%==38 goto callprog
107 if %vc%==39 goto callprog
108 if %vc%==40 goto callprog
109 if %vc%==41 goto callprog
110 if %vc%==42 goto callprog
111 if %vc%==43 goto callprog
112 if %vc%==44 goto callprog
113 if %vc%==45 goto callprog
114 goto badkey
115 :callprog
116 set scrn=on
117 if %hr%==7 goto F1%menu%
118 if %hr%==9 goto F2%menu%
119 if %hr%==11 goto F3%menu%
120 if %hr%==13 goto F4%menu%
121 if %hr%==15 goto F5%menu%
122 if %hr%==17 goto F6%menu%
123 if %hr%==19 goto F7%menu%
124 if %hr%==21 goto F8%menu%
125 :badkey
126 echo
127 set scrn=off
128 goto REENTER
129 :F11
130 WS2
131 goto MAINMENU
132 :F21
133 SET PROGTODO=PWR
134 goto END
135 :F31
136 SET PROGTODO=LI
137 goto END
138 :F41
139 SET PROGTODO=FORM
140 goto END
141 :F51
142 SET PROGTODO=HIJ
143 GOTO END
144 :F61
145 SET PROGTODO=FOTO
146 GOTO END
147 :F71
148 SET PROGTODO=PB
149 GOTO END
150 :F81
151 goto MAINMENU
152 :F12
153 SET PROGTODO=SAY
154 GOTO END
155 :F22
156 cd \windows
157 win
158 goto MAINMENU
159 :F32
160 SET PROGTODO=cards
161 GOTO END
162 :F42
163 SET PROGTODO=MORT
164 GOTO END
165 :F52
166 SET PROGTODO=BACKEMUP
167 GOTO END
168 :F62
169 CALL norton
170 goto MAINMENU
171 :F72
172 cd \GAMES
173 call GAMESMNU
174 GOTO MAINMENU
175 :F82
176 goto MAINMENU
177 :F13
178 SET PROGTODO=ACAD
179 GOTO END
180 :F23
181 \MISC\XTREE
182 goto MAINMENU
183 :F33
184 SET PROGTODO=QB
185 GOTO END
186 :F43
187 c:\tnc\db3\chngbkup
188 goto MAINMENU
189 :F53
190 CALL \tapesyst
191 goto MAINMENU
192 :F63
193 CD \PKMENU
194 CALL PKZMENU
195 CD \
196 goto MAINMENU
197 :F73
198 CD \DSKLIST
199 CALL DISKLIST
200 CD \
201 goto MAINMENU
202 :F83
203 goto MAINMENU
204 :HELP
205 SHOW HELP
206 BATMOUSE
207 :SCN
208 set scrn=off
209 echo H
210 echo
211 SHOW DIRSCN%1
212 echo %2;%3m
213 echo H░░░░░░░░░░░░░░░░░░░░░ P E R S O N A L D I R E C T O R ░░░░░░░░░░░░░░░░░░░░░░░
214 echo %4;%5m
215 echo 0H F1
216 echo 0H F2
217 echo 30H F3
218 echo 30H F4
219 echo 30H F5
220 echo 30H F6
221 echo 30H F7
222 echo 30H F8
223 echo 61H H - HELP
224 echo 61H F9 - EXIT TO DOS
225 echo 61H F10 - PAGE DOWN
226 GOTO %MENU%
227 :F9
228 SET PROGTODO=CLS
229 :END
230 %PROGTODO%